pee Teeree) thd as ha 
duu usu 
eS TV eres) Aad Lh 
sus Us Mul 
lu wud Ud tas 
eet eres) Aas td Us as 
Aas ts sus Us kd Lk 
ee veres) Add ko Ld Ms th 
oud the LAS tu 
pee rveree) as peeReeree) 
tas tas ad du a Md 


LUC RVC RVC V STV CRUSTY S eu rev i vervunesyUsl sec esruslvUivulvenvel 
dd dd dd ds a a a 
dd dd dd da ds ts 


VUwWU VvUow 
Vw Www 
YVvUw VWuUw 
WUWY Vwuw 
wow VUwU 
YVVYU VvUwU 
Www wuw 
YWuUwW Vu 
wuw Www 
ed VVUuU 
WUW wuw 
WvUwY Vww 


VYYVYVYVYVYVYYVYVUYUYYUY 
VWOEVYVVYVYVYVYYUYVUYUUY 
WYSE VUYVYVUYUYUYVUYUYUUYUY 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 


T RRRRRRRRRRRR 
T RRRRRRRRRRRR 
T RARRRRRRRRRK 
RRRRRRRRRRAR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 


-—e 

a el el ae oe eo os 
el ce coe eel el el Soe cl el oe ed ee ee ee 
Ree ee ee ee ee ee ee 


ao 


> PS ee oe OS 6S FS OS OS OG FS FS FS SS FS FS OS 6G FG FS FS FS OG OG FS FS HS OS OS HS OS 8S 6G FS FS FS ESSE FS SS FS SOS HSS FSFE SHE *SO*S*S SCH CHE HE*S SESS HS 


wv ww 
A vu 
as as 
ed ad 
wu Kt) 
ad a) 
Wu YUw 
KD Vv 


WUGVUVLUUYUUW 
BVO UwO 


~~ 
aaaa 
aaaa : 
= aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaaaaaaaaaaaaa 
aaaqaagaaa0cgc00a0a8a 
aaoooooaoaaa 
acoaocancnaaaa 
aan aa 
aa aa 
aa aa 
aa aa 
aan aa 
aa aan 
Aaaaaaaanankaanaaa 
aSooncoaoanoeaoaacaacaaa 
af af oe née ae nn NMMWM 
nf ae oe at af oe oe mn NNMn 
at a a “wn mw nn 
tat tw mw nn nn 
a 4 mown nw nw 
at nn nw nn 
at mw nw nn 
. a4 mn nn nn 
dé oe Oe Oe Oe Oe Oe O_O Oe Oe Oa MMW mw 
nef bf Oe Oe Oe On Oe Oe Oe On Oe Oe Oe MNMMWM mn 
@ 
Ssan sone 
@ — = 
@ oat es eT 
wm DO re ee an og 
3 at ee et cr ont a OE 
toe ae 
oo o sne3 ry 
DoDD oooooooo ow 
-e sau 
-—e Jda4 
-—e a4 
-—-— a4 
ee el ee aa 
ee ee os adial * 
-—e ad 
ee ju 
ee Jao I I I I I I I I I I I 
aad I od I I I od I I I I 


**FILE**1D**TBKDPC 


N 2 
16-Se 4 :5 VAX=11 Bliss-32_ V4.0-742 1 
14- ep 1982 98: 33: 3 DISKSVMSMASTER: CTRACE.SRCITBKDPC. 832; at (1) 


MODIFIED BY: 
Dale Roedger, 15 june 17s: Version 13 
Sid Maxwell 09-Dec-81 


15-Aug-83 PS Did general clean up to use updated files 


from D 

Jan-84 RT changed TBKSPC, T gt INE so that it only 
reports a match ey Ne tables 
ind cate that the vi ne 2@., 

“TER records ne, £ ose the’ Line and “§ 
Mh nn a eatch of s fixes a o propion 

we were seeing sien” RPG program (They 

have code not associated with | 


PUPP & & 


nes). 


3 1 1 9 MODULE TBKDPC ( IDENT = 'V04-000' ) = $ 
Ba g | BEGIN : | 
Be 41! t | 
3 Bbe 7 Semaine opapeiengsmanraie meparangeataemee sre ster pena D4 
. ;* ® Py 4 
fie .7 38 1! COPYRIGHT (c) 1978, 1980, 1982, 1984 | 
; 8 0 3 1 !® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * ij 
; 1 4 } it ALL RIGHTS RESERVED. * | 
3 ‘ * SS 
; 11 011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
3 \¢ oie 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * sj 
: 1 1 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | 
: 14 0014 1 !* COPIES THEREOF MAY NOT BE -PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : ij 
: 15 015 1 !* OTHER PERSON.~ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ij 
; 1 818 : = TRANSFERRED. ’ . 
o . ® P4 4 
; 18 Bats 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * $ i 
: 19 019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ar 
: 30 0020 1 i CORPORATION. * 3 j 
3 ! * | 
3 ¢ 00 ¢ -1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
: 00 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * tj 
$e 0095 | is : a 
: 8 88 $ ! leuteunentnneeneentnntnennennecreenerrenennententnntnntentnntentnntentnnnents : 
; ' i 
: 5 00 § i 14+ zi 
; 2 9030 1 | FACILITY: - } 
3 1 80 1 1 TRACEBACK i 
; 4 0088 1 | ABSTRACT: : 4 
; 4 034 1 analyzes PC correlation tables for DEBUG and for symbolic 3 ¢ 
; 36 ite : traceback. : 
; , 0037 : ENVIRONMENT: VAX/VMS, user mode, interrupts disabled. ; 
: 39 0940 ' AUTHOR: Carol Peters, CREATION DATE: 16 September 1977 ; 
: 41 O41 1 | Version 13 ; 
: 2g ¢ | a 
> 44 4 1 : 
; rh 5 ! : 
: ¢3 2 1 | 
; 648 8 1 g ( 
; «(49 j » ( 
3 0 9 1 3 
- | a 
; 1 > 
3; 54 4 1 : | 
: 5 . 2 g ( 
3 6 * : 


oo 
CoOOCOCO 


PAAAOAAOOIIN 


WN OC VDONAUES WN —-OOOnNe 
WANA NAIA AANA LIA AAI AAAI AAAI AAAI AAAI AAAI AAO OOO 
[eal al © al Sal * al “al tal al eel tak eabesl abealesl eae eee oe oe oe oe oe oe 
PANO ODN UE WIN 0 DOONAN EWN 0 OONA UE WWN CO OONOU EWN CONOUS Wh OWo~ 


SOOSOSOOOCOOSOSOOOCOOSOOOSOOSOOOOCOCOOSOOCSOCSOOCOSOOCOOOOCOOOOOOO 


= OOS SSeS cs DWOOOO0 0000 WOO WH WOW 00 NIN NINN NNN NI OO o 


a a ed ed ed a ot 
ee ee 


3 
1B-Se0-1986 02:15:52 VAKeT1 Bt is4-32 
TABLE OF CONTENTS: 


FORWARD ROUTINE 


Pp 
CITBKDPC.B3203%" (25 


TBKSPC_TO_LINE, ! matches a PC to a Line number 
PROC _PC_CMD ! processes a string of PC gorrelation commands 
GET_REXT_pP¢; ! gets the next PC correlation record 


| REQUIRE FILES: 
REQUIRE 'SRC$:TBKPROLOG.REQ'; 


MACROS: 

MACRO 
first_dpc_datum = e 0, 32, 0%, ! passes count and type 
sarees Arse = 0, 0, 8, 1%, ' current top of record 
next_uns_byte = 1, - 0% ! byte argument to command 
next_uns_word = 1, 0, 18, Of, ! word argument to command 
next_uns_long = 1, y 32, O%, ' Longword argument to command 

one_byte = 1, 0, 8, O%, ! increment for top of recor 

a 5 1 0% ! { f f d 
add_two_bytes = ¢° 0, 8, O%, ! ditto 
add_three bytes = 3, 0, 8, O%, ! ditto 
add_five Bytes = 5, 0, 8, 0%; ! ditto 


EQUATED SYMBOLS: 


! The body of a PC/LINE Table Record is interpreted as a sequence of commands 
! each of which supplies some information about Line/statement numbers in the 
! context of the preceding commands. The value is taken from DSTRECRDS.REQ. 


LITERAL 
Line_open 
Line_closed 


nu 
nm 


OWN STORAGE: 

OWN 
dst_entry : R 
dpc_entry : R 
start_pc 
current_Line, 
current_stmt, 
current_incr, 
current_pc, 
current_stmt_mode, 
prev_line, 
prev_stmt, 
prev_incr, 


dst$record, 
BLOCK fs BYTE), 


prev_pc, 
prev_stmt_mode, 


ROAR LE OMAR OO CRORE OR 


———_—_—— 
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current_mark, 
prev_mark; 


EXTERNAL REFERENCES: 


EXTERNAL 
tbk$module_dst : REF dst$record; 


EXTERNAL ROUTINE 
TBK$ 
thk$get_dst_rec, ! gets a DST record from a DST pointer. 


tbk$get_nxt_dst, ' gets next DST record in sequence 
tbk$POSTTON_DST; ’ ! Set up the DST ‘next’ sequence. 
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GLOBAL ROUTINE tbk$pc_to_Line (netch.pc ptr. routine_address, excep_type, 

ae Line_no_ptr. stmt_no_ptr) = 

i FUNCTIONAL DESCRIPTION: 

! This routine matches an absolute 
in a FORTRAN routine. MATCH_PC i 
and the Location pointed to By Ll 
is written as a result of delta-P 


PC address to a Line number 
s the given PC, 
NE_NO_PTR 

C table analysis. 


ach PC correlation record that exists for a single routine 
s sequentially analyzed until the desired PC is seen. 


If a match cannot be made because and end of routine record or 
PR, inverse record is recognized, then this routine returns 


FORMAL PARAMETERS: 
match_pc_ptr 


-a 
rout ifte, Sddress - D 
excep_type -t 


yosater to the PC to be matched. 
ST of record for enclosing routine. 
he type of exception, where 

zero, means irrelevant; 

one, means grap type exception, 

two, means fault or abort type exception. 
Line_no_ptr - a copy-back pointer for the Line number. 
stmt_no_ptr - a copy~back pointer for the statement number. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

' 

i 

i 

i 

' 

' 

i 

IMPLICIT INPUTS: 
} The DST_ is already positioned to the record AFTER 

the ROUTINE record we want to look at Line numbers for. 

IMPLICIT OUTPUTS: 

: the routine get_nxt_dst is set up to next return the record after 
: the end of routine fecord or the record after the PC correlation 
record that matched the given parameters. 

1 
i 
i 
i 
i 
i 
i 
' 
i 
1 
le 


ROUTINE VALUE: 
COMPLETION CODES: 


true, if success; false, if any error or if match cannot 
be made. 


SIDE EFFECTS: 
The DST is positioned for a GET_NXT_DST sequence. 
BEGIN 
LOCAL «match_pc 


low_routine, 
real_value; 
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treat traps as faults by debumping PC 


' 

i 

IF -excep_type EQL trap_exc 

THEN match pc = .match_pc_ptr =- 1 

ELSE match pc = .match_pc_ptr; 

[f pokSpostton_dst(. thkSaodule_dst) EQ. 0 


lLow_routine = =1; 
REPEAT 
IF Tdst_entry E 
THEN 


RETURN FALSE; 
ff _g dst entryléstee. typed EQL dst$k_modend 


IN 
dst_entry = ebb Spes nat _dattdet entry); 


EXITLOOP; 
Af eprernentryidetéh_ typed EQL dst$k_rtnbeg 


BEGIN 
41g 08t ontryleetet values LSSA .low_routine 


oe: low routine = .dst_entryfdst$l_valuel; 
END; ; 


en etoes tenets. te onasule Sot? EQL 0 


RETURN FALSE; 
if et_next_dpc(dst_entry) EQL 0 


RETURN FALSE; 
dpc_entry = dst_entryCdst$b_vflags]; 


'e4¢ 
Initialize state variables. 


current_Lline = 0; 

current _stmt = 1; 

current incr = 1; 

current _stmt_mode = FALSE; 

current_pc = start _pc = . Low routine; 
current_mark = Line_closed; 


'+4 

' Call a routine that processes all PC correlation commands 

' until a delta-PC command is seen. Then process that 

! delta-PC command and return to this routine. If the processing 
is generally successful, return true, otherwise return false. 


mm 
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F 5 
TBKDP Sep 4 75 VAX-11 8B 
of 1=86b-1984 98:30:79 Dt esume 
; 245 14 REPEAT 
; ‘3 1? BEGIN 
; rt i$ prev_line = .current_Lline; 
; 24 1 prev_stmt = .current_stmt; 
3 29 1 prev_incr = -current— ner; 
3 1 0 § prev_stmt _mode = scuFrent _stmt_mode; 
; 26 0521 prev-pc =".current_ 
: 54 88 é prev_mark = .curren aark: 
: 255 0524 
3 @ 0525 F NOT ¢ 3 
| Be $36 as pty 
i : 
> 261 530 ! Re ert a match to a Line if: 
; o¢ 0531 i = The PC is within the range given by the previous 
; 26 Be § i PC and the current PC, 
; ee B2 Z = The Line is marked as ‘being OPEN. 
: 266 0535 4 iF ° ((.prev_pe LEQA .match_pc) AND 
; 267 05 $ 4 : hatch pc LSSA “currant =0C) AND 
; 268 bee 4 rev ark EQL Line open) ) 
; 269 0538 5 THEN Be N stmt_no_ptr = (IF prev_stmt EQL 1 
; 270 0539 5 THE 
3 eri 0540 4 ELSE prev. stmt); 
: 27 0541 4 .Line_no pie = .prev_line; 
; 7 Bete & RETURN Tf 
; 274 054 : 
3 are 0544 
: 276 0545 +4 
; a4 Bees j found nothing this round; continue trying. 
3; sary B2e8 
; 280 549 END 
; 281 0550 1 END; 
-TITLE TBKDPC 
-IDENT \V04-000\ 
-PSECT TBKSOWN,NOEXE, 
00000 DST_ENTRY: 
-BLKB 4 
00004 DPC_ENTRY: 
-BLKB 4 
00008 START PC: ‘ak 4 
O0000C CURRENT LINE ‘ 
00010 CURRENT oi 4 
00014 CURRENT_INCR: ‘ 


LK 
00018 CURRENT_PC: 


CITBKDPC .B32; A al 


PIC,2 


3 


vet 
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TBKDP 18-se -1984 02:13:5 VAX-11 Bliss-32 V4.0-742 P 7 
v04=0 1 ~3007 138 96:30:35 DISKSVMSMASTER:CTRACE.SACITBKDPC.B32:1 (3) 
-BLKB 4 
0001C CURRENT_STMT_ MODE: 
00020 PREVLINE: 
00024 PREV_STMT: 


00028 PREV_INCR: 


002¢ PREV_PC:BLKB 
$086 PREV-STMT_MODE: 


BLK 
00034 CURRENT MARK 
00038 PREV_MARK: 

-BLK 


we 
4 
4 
4 
4 
4 


.EXTRN TBKSMODULE_DST, TBKSFAKE_MSG 
-EXTRN TBKS$FAO_OUT, TAKSGET_DST-REC 
SEXTRN TBKSGET-NXT_DST 
-EXTRN TBKSPOSTTON~DST 


-PSECT TBKSCODE,NOWRT, SHR, PIC,0 


007¢ 00000 .ENTRY TBKSPC_TO_LINE, Save R2,R3,R4,R5,R6 : 0400 
56 000000006 00 9€ 90008 MOVAB TBKSPOSITON DST, R6 ; 
55 000000006 00 9€ 0000 MOVAB TBKSMODULE_DBST, ‘RS : 
54 0000' CF 9E 90019 MOVAB T ENTRY, R F 
01 OC AC D1 0001 CMPL EXCEP_TYPE, #1 > 0459 
? le 00019 BNEOQ ; 
53 04 Ac } i 208 SUBLS ue MATCH_PC_PTR, MATCH_PC + 0460 
53 04 aC DO 00022 1$: MOVL § MATCH_PC_PTR, MATCH_PC > 0461 
65 DD 00026 2$: PUSHL TBKSMODUCE DST : 0463 
66 gi FB 000 CALLS #1, TBKSPOSITON_DST ; 
0 D5 00028 TSTL RO F 
7D 13 0002D BEQL 6 ; 
64 65 0 00 F MOVL  TBKSMODULE_DST, DST_ENTRY + 0466 
52 oi CE 000 : MNEGL #1, LOW_ROOTINE + 0467 
4 DD 00035 3s: PUSHL  R4 + 0470 
000000006 00 gi F 7 CALLS #1, TBKSGET_NXT_DST ; 
64 3 0 D MOVL RO. DST_ENTRY ; 
69 1 4 BEQL $$ > 0471 
BD 28F 01 A ? 4 CMPB (RO), #189 > 0474 
1 4 BEQL © 4$ ; 
BE 8F 01 ad 9 4A CMPB (RO), #190 + 0477 
E4 1 F BNEQ 5 ; 
52 03 AO b CMPL (RO), LOW ROUTINE > 0480 
D BGEGU 3$ ; 
52 03 A p MOVL . 3(RO), LOW_ROUTINE : 048 
D 8 BRB $ > 046 
DD D 4$: PUSHL  TBKSMODULE ‘DST > 0487 
ob 1 F F CALLS #1, TBKSPOSITON_DST : 
0 p TSTL RO ; 
46 BEQL 6 3 
34 ) PUSHL  R4 > 0490 
0000v CF 1 FB CALLS #1, GET_NEXT_DPC ; 
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; Routine Size: 220 bytes, Routine Base: 


1 
1 
$98 ga 
TERS 
oc ag 04 8 
SB Sier 
1C = A4 D4 1 
Dd 4 
D 8 

OC A4 p 

1¢ = AG 

14 A& 70 A 
34 AG pe 0 Hf 
ot seit 
50 04 8 AC 
04 OOOAE 
2c AG et Boat 
Mt Soi 
D5 if 0089 
38 A& 01 00088 
CF 12 QOOBF 
24 «AG CO ite 
04 12 000C5 
50 D4 000C? 
04 11 000C9 
24 A& 00 000CB 
50 D 9 
20 AG 4 0003 
01 00 00008 
04 00008 


TBKSCODE + 0000 


oa ww 
Sad bad 


~ 
wr 


sooo 
PM 


POoOwBsz- 


Pc_¢mp 


° _ - 
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CURRENT MARK 
#0, P 


PREV_PC, MATCH_PC 
MATCH_PC, CURRENT_PC 
PREV_MARK, #1 
BREV_STMT, #1 


wouuagu 
PADAPYeF 


V_STMT, RO 
RO, SSTMT_NO PTR 
PREV LINE, @CINE_NO_PTR 


) 
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P ROUTINE PROC_PC_CMD = 
85 Functional description: 
8 This routine processes PC correlation commands until a 
8 delta-Pc command is seen. The delta-PC command is also processed. 
88 Then this routine returns with all the contents of the 
4 parameter pointers updated appropriately. 
91 This routine moves from PC record t9 PC record as necessary. If 
9 no more records are seen, this routine returns false. 
9 an error is seen in a PC correlation record, then this 
94 routine sets the contents of lLine_ptr to zero and 
32 returns false. ; 
97 Inputs: 
98 
39 


Implicit outputs: 
the contents of the Line pointer, the increment pointer, the 
statement pointer, the .ext_pc pesaser, dpc_entry, and possible 
dst_entry are updated to new values. 


Routine value: 
TRUE if all goes well, otherwise FALSE. 


Side effects: 


' 

i 

i 

i 

i 

! 

' 

i 

i 

i 

i 

| 

' 

: Implicit inputs: 
None 
i 

i 

i 

i 

i 

i 

i 

i 

! 

More of the correlation records for this routine are read. 


BEGIN 
REPEAT 


BEGIN 


' See whether the current record is exhausted. If 

! so, get a new record. If none are available, 

i return FALSE. Otherwise, set dpc_entry to point to 

the address of the third byte of the correlation record. 


if dpc_entryCcurrent_byte] GTR (.dst_entryCdst$b_length] + 
ee 4 Gee tanttelacesy (ongends 4 . 
THEN 
BEGIN . 
IF NOT get_next_dpc(dst_entry) 
RETURN FALSE 


ELSE 
ae dpc_entry = dst_entry Cdst$b_vflags); 


!' Now process each command, either PC correlation or 
' delta-PC one at a time. Once a delta-PC command is 


AANA BBB BE PAE FANNIN NIAID I tt 
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! processed, control returns from this routine to its 


Fa 


88 

: caller. 

1 CASE epg entry Ccurrent_byte] FROM 1 TO dst$k_pccor_high OF 
i 

15 ! Read the next two bytes as an unsigned word 

1 ; pearosent we a delta-PC value. Update the next_pc 
! } and update the dpc_entry address. 

: t 


dst$k_delta pc_wi: 
BEGIN . 
IF .current_stmt_mode 
THEN 


ELSE current_stmt = .current_stmt + 1 
current_line = .current_line + 
-current_incr; 


current_mark = Line_open; 
current_pc = .current_pc + 

-dpc_entry Cnext_uns_word]; 
dpc entry = dpc_entry Cadd_three_bytes); 
EN 


AOOCOMMIMAMNVIVNVIVIVIVIE BELL LEE 
WR" O OONOUSWN CO OONOULWN—O 


TORN TRUE; 
D; 


64 
65 
6? 


! Read the next four bytes as an unsigned longword 
! representing a delta-PC value. Update the next_pc 
and update the dpc_entry address. 
Cdst$k_delta_pc_l): 

' BEGIN 


IF .current_stmt_mode 
THEN 


SSSSSSSSSSSSSSSS SSS 2EZE2 33333-3322 
PARA AAAA AA AA AAA AAA AAA AAA AAA AAA 


oooo 
AAO 
Pew 


current_stmt = .current_stmt + 1 
ELSE 


FESS 


current_line = .current_line + 
-current_incr; 


SOODONAO UE WN OC OODNOAULS WN S$ OOONOUS Wn — 


current_mark = Line_open; 
current_pc = .current_pc + 


dpc entry a 
entry = dec.en ry Cadd_five_Bytes 


next_uns jong]; 
dpe 3 
RE TORN 
END; 


' incrogee the current Line number by the value 
contained in the next unsigned byte. 


tdst$k_incr_linum): 
BEGIN 
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PPP PUN BB EERE EE EEE PAWN BBB BB BEE PWN 
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FW OOONO US wn 


current_line = .current_ line + .dpc_entry next _uns_byte]; 
IF .curfent_stmt_mode TREN current Stat = 1; 
dpc_entry = dpc_entry Cadd_two_bytes); 
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CdstSk_set 


COOOoooooSo 
AAA 
oon co 
—O0Ow 
HAAN BB BAW BB BANANA BB BAIA BB EWA BB EWI 
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R 


kK 3 
ereeen 188s 98:50:35 | eels teas HRare ceca rexpec.e32° 


END; 


! Increase the current Line number by the value 
contained in the next unsigned word. 


Cdst$k_incr 
BEGT 
IF .current_stmt_mode THEN current_stmt = 1; 
current_Line ay BT +. E ence? Cnext_uns_word]; 
gpc entry = dpc_entry Cadd_three_bytesJ; 


Linum_wi: 
N 


! Increase the current Line number by the value 
contained in the next unsigned longword. 


Cdst$k_incr linum_lJ: 
BEGIN 


IF .current_stmt_mode THEN current_stmt = 1; 
current_line = .current_line + .dpc_entry (Cnext_uns_long]; 
dpc entry = dpc_entry Cadd_five_bytesJ; 


! Change the Line increment from its present value to 
the value contained in the next unsigned byte. 


Cdst$k_set_linum_incrd: 
BEGIN 


IF .current_stmt_mode THEN current_stmt = 1; 
current_incr = .dpc_entry Cnext uns _byted; 
dpc entry = dpc_entry Cadd_two_Bbytes); 


! Change the Line increment from its present value to 
the value contained in the next word. 


Linum_incr_wi: 

BEGIN 

IF .current_stmt_mode THEN current_stmt = 1; 
current_incr = -dpc_entry Cnext_unsS_word); 
dpc entry = dpc_entfy Cadd_threé_byfes); 


| Revert to a Line increment of value 1. 
Cdst$k_reset_linum_incr): 
BEGIN 


" 
—— 
s. 


IF .current_stmt_mode THEN current_stmt 
current_incf = 1; 
dpc entry = dpc_entry Cadd_one_byte); 


Cdst$k_beg_stmt_mode): 


age 
79 


TBKDP 1b-se Sep-1984 :5 VAX-11 Bliss-32 V4.0-742 

v04-000 ats 7 98: 49: i DISKSVMSMASTER: CTRACE.SRCJTBKDPC.832; hall 
EGIN , 
F_.current_mark NEQ Line_open 
HEN 


Sp St i ie, 


WANN Iiinororororororer 


DWONAVE WN $$ OOS NAUL WN O ODNAOUE WN OOONOUS WI 


EGIN 
TBE STAKE MSG(TBK$_INVDSTREC,0); 
pe Luan FALSE; 


current _stmt = 1; 
current_stmt_mode = 
dpc. entry = dpc_ RR po one_byted; 


Cdst$k ~end daptnt. mode): 
i le stmt = 1; 


current_stmt mode = FALS 
dpe. entry = dpc_ BBS "4 one_byteJ; 


3 4 : 
3 4 ; 
3 ; ‘ 
3 7 4 3 
e 7 4 P 
. 7 4 3 
3 7 3 
3 7 3 
3 7 3 
e 7 4 Py 
: 7 4 3 
o 7 4 Ps 
3 07 4 3 
3; 47 Bre 3 
: 47 74 3 
> 474 74 Cdst$k_set_Linum_bJ: ; 
; 475 743 (4 N 3 
; 476 744-4 IF .current_mark NEQ Line_closed 3 
: 477 0745 4 THEN 3 
; 478 074 BEGIN H 
; 479 074 TOKSr AKE MSG(TBKS$_INVDSTREC,0); 3 
: 480 Bre RETURN FALSE; F 
3; 481 749 4 END; ; 
; 48 0750 4 3 
; 48 0751 4 current_line = .dpc_ setretnest uns gbyted: 3 
; 484 0752 4 dpc. entry = dpc_entryladd_two_Bytes 3 
3; 485 075 3 
; 486 ore 3 
; 487 75 Cdst$k_set_linum]: : 
; 488 Bre 4 BEGIN 3 
; 489 757 4 IF .current_mark NEQ Line_closed 3 
: 490 0758 4 THEN 3 
; 491 759 «5 BEGIN 3 
; 49 760 ; MS do MSG(TBK$_INVDSTREC,0); 3 
; 49 761 RET URN FALSE; 3 
3 494 762 4 END; 3 
3 495 763 4 3 
; 6 764 4 current_line = .dpc_entry(next_uns_word); 3 
; 49 765 dpc. entry = dpc_entfyladd_threé_bytes); 3 
3; 498 766 3 
; 499 76 3 
: $00 768 Cdst$k_set_Linum_l]: : 
: 501 769 4 BEGIN 

: 0§ 770 4 IF current mark NEQ Line_closed 

3 . 4A 4 THEN 

: 5 ng Pela MSG(TBK$_INVDSTREC,0); 

3 774 RETURN FALSE; 

3 775 4 END; 

3 ree 4 

3 . 777 4 current_line = .dpc_entry(next_uns gtgne: 

; 510 778 4 dpc_entfy = dpc_entfyladd_five_bytés 
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WAM AAA AAA GIP PINONPINPINNINDN 2 SS OO a 


BRERELRE 
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PUSPATI & 


NOUS WN OOONOUS WN oO 
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SNL 
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Oooo 
‘C2 09 09 OD: 
oo 


VIFWN—OOONOUSWN—O” 


BPP MAMMA B&H HPN & BAMA BEF PN & PWAALS BBB PN BF PAE FP 


a 3 
$ep-1984 02:13:5 VAX=11 
eH aets a HLL Me VP Hd ite rt es ee Pe 
END; ’ 
Cdst$k_set_stmtnum): 
BEGIN 
current_stmt =: .dpc_entry(next_uns_word); 
dpe. entry = dpc_entryladd_three_bytes); 
Cdst$k_set_pc): 
~SECIN 
if -current_mark NEQ Line_closéd 
BEGIN 
M Sida MSG(TBKS_INVDSTREC,0); 
1A ai FALSE; 


current_pc = .start_pc + 
. pc_en tryCnext_uns_byteJ; 
dpc entry = dpc_entryladd_two_bytesJ; 


Cdst$k_set pc awd: 
” BEGIN 
4 -current_mark NEQ Line_closed 


* BEGIN 
Mt Sade MSG(TBKS$_INVDSTREC 0); 
Ne FALSE; 


current_pc = stor’ Pe + 
cen tryCnext_uns_w rdj; 
ops entry = dpc_ enets add_three_bytés); 


Cdst$k ~Set toc. 3: as ia 


ti current _mark NEQ Line_closed 
THEN 


BEGIN 
Me dadae MSG(TBKS$_INVDSTREC,0); 
NL a FALSE; 


current_pc = .start_p ; 
gayfnext uns 340797 
ive Bytes 


ops. entry = dpc “eee 
Set the current PC value to an absolute address. 
CDSTSK_SET_ABS_PC): 

eed nnenT RARE NEQ LINE_CLOSED 


This is a standard delta_PC command if she volus is 


N 3 

TBKOP 16-Sep-1984 02:13:5 VAX-11 Bliss-32 V4.0-742 Page 14 

v04-000 12-800-} 384 96:30:75 DISKSVMSMASTER:C TRACE. SRCJTBKDPC.B32; 1° (4) 

: 568 - BEGIN : 
; $69 5 ; TErSt AKE MSG(TBK$_INVDSTREC,0); : 
; 570 8 RETURN FALSE; : 
; f} i ? END; : 
; 4 4) 4 CURRENT PC = DPC ENTRYCNEXT UNS LONG]; ; 
; i 43 4 DPC ENTRY = DPC_ENTRYCADD_FIVE_BYTESJ; : 
: 57 44 . ; 
; i$ 45 ; Cdst$k_term): : 
; 578 rt 4 BEGIN ; : 
; 579 47 4 current_pc = .current_pc + : 
; 580 rk 4 pc_entry(Cnext_uns_byteJ; : 
; 581 49 4 current_mark = Line closed; ; 
3 Ht 50 4 apc entty = dpc_entryladd_two_bytes); : 
2 ee ae hing hea ; 
: 585 85 ; , ; 
: 386 0854 CdstSk_term w): ; 
; at He d ah c = .current_pc + ; 
; 282 0857 4 ” * ~.dpe_entryCnext_uns_word); : 
; 390 58 4 current_mark = Line ¢losed: : 
; 591 0885 4 cpt entry = dpc_entryladd_three_bytes]; : 
; 238 Fe 4 AL TRUE; , 
: 59% 086 ‘ ; 
: 335 ages ; Céstsh_ tere (3 : 
; 299 Obes 4 current_pc = .current_pc + : 
; 598 B208 4 pc_entryCnext_uns_long]); 3 
; 599 0867 °4 current_mark = Line closed; ; 
; 600 8 4 dpc entfy = dpc_entiy add_tive_bytes); ; 
; 601 go 4 RETORN TRUE; ; 
P oN 0 END; ° 
: 80a re ; 
; 7 } : 
3 £06 74 ! Less than or equal to zero. Otherwise it an error. 

; 60 75 ! If okay, set next_pc value, update the dpc_entry, 

; ons 4 and return with success. 

: 610 7 COUTRANGE): 

3; 6611 79 4 

3 ol¢ 9 4 IF .dpc_entry Ceurrent byte} LSS 

; OF 2 — al eb os k_ delta_pc_low 

; ‘ ntryCcurren e 

2 | or $2 98 eran reer Tomson A5t0k, dotte.pe. high 

: olg 4 THEN ‘ 

3 6} 5 Ad 

: 618 TBKSFAKE _MSG(TBKS_INVDSTREC,0); 

: oi} ? Se FALSE; 

: 621 5 e : 

3 6 § & i! -current_stmt_mode 

3; 6 91 «4 HE S 

; 624 92 4 current stmt = .current_stmt + 1 
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; 0551 
: 0597 
6 
6 


, DPC_ENTRY 


0 
ENTRY, RO 
ENTRY 
SET NEXT _DPC 
ST ENTRY 
NTRY, 


BL 
PUSHAB DST 


CMD 
» WORD 
MOVAB 
MOVZ 
ADDL 
CMPL 
BLEQ 


eT Oe CUP fw OWOWO 
OS SE NINUINICIPIM ST TW 
Soooooooooooooooosco 
SOoooooocooooooooocoo 
OQoooocooooooooooooo 


wetOnrmu OO Ou 
AOVOEr"CuwmMvad 


Q00C 00000 PROC_PC_ 
0 
09 


wr TMC 


MTWNOR-DOO-WUM TN 


ao 
PAPAS ASOSOOOOOSOCS 
DDD DGD AAA AAAS OD 
ee ew le een wale lololololo) 


NOP- DOO CIM ~TMOP- OPO 
WOODOGOOOOGOOOOOOD 


Save R2 
DPC 
apsTt 
DST_ 
ce 
$ 

J 
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— 
—Mi ze eees ese, ses sss eeseseee ese 


PAAAAPAAAAAAAAPAAAAAAAA 


2 
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1b-se Sep-1984 75 VAX=-11 tS 0-742 Page 16 
1 Sep-1 7 6: 33 $ DISKSVMSMASTER:C YRACE SAC] TBKDPC.B3204° (4) 
3 15 A BLEQ Ss ; ; 
orf 3 eC BRW 47$ : ; 
05 18 «AS E f 5$: BLBC  CURRENT_STMT_MODE, 6$ : 9890 ; 
0c A p INcL RRENT-STMT~ + 089 : 
08 A 1 A $: ADDL2 CURRENT_INCR, CURRENT_LINE + 0895 ; 
* i bo 8 ) D $F: cVTBL aDPC ai TRY + £0 : 598 : 
30 OA 01 Oo 73 MOVL ay EURRENT “MARK + 0899 ; 
63 D 7 INCL OPC_E + 0900 F 
1D 11 00078 BRB 12$7 + 0901 F 
05 18 AS E o7D 8$: BLBC  CURRENT_ST MT _MODE, 9$ ; 06 1 ; 
OC A b6 0 1 INCL CURREN NT“STM + 0623 : 
08 A 10 fs CO 00086 9$: ADDL2 CURRENT_INCR, CURRENT_LINE + 0626 ; 
0 A 01 pO 088 10$: MOVL #1, CU RR NT_MARK ; 0628 : 
5 01 A2 3C O008F MOVZWL TCR2I : 0630 ; 
14 «OA c C6 093 ADDL g RO. CU cu Unment PC : ; 
6 0 g 0097 11$:  ADDL2 #3. DPC_ENTRY + 0631 ; 
0161 31 O009A 128: BRW 55§ ; 0632 ; 
05 18 A3 £9 0009D 13$:  BLBC ORRENT.. STMT _MODE, 14$ + 064 ; 
oc A D6 O0A1 INCL | CURRENT~STM + 0644 ; 
05 11 000A4 BRB 15$ : ; 
08 A 10 A3 CO OO0A6 148:  ADDL2 CURRENT INCR. CURRENT_LINE + 0647 3 
D A 01 DO 000AB 15$: # MOVL #1, CURRENT MARK + 0649 ; 
14 AS 01 A2 CO OOOAF ADDL2 TR2I CURRENT. PC > 0651 ; 
0144 31 00084 BRW 54$ > 065 ; 
50 01 A2 9A 000B7 16%:  MOVZBL 1(R2), R RO + 066 i 
08 A3 50 CO 000BB ADDL2 RO, CURRENT_LINE F : 
7F 18 AS’ E9 000BF BLBC CURRENT evar MODE, 32$ + 0663 ; 
Oc «(AB 04 06 docs MOVL = #1 EURREN T_STMT : ; 
9 11 000¢ BRB 32§ > 0664 ; 
04 18 A3 €E9 000C9 178 BLBC § CURRENT_STMT_MODE, 18$ > 0673 ; 
oc «(AB 01 BO 00CD MOVL #1, CU nn Me STMT ; F 
5 01 Ag C 00001 18$ MOVZWL 1 (RQ) + 0674 ; 
08 A 50 CO 00005 ADDL2 RO, CU SRRENT _LINE ; ; 
77 11 00009 BRB 34§ + 0675 ; 
04 18 AS’ E9 000DB 19$ BLBC §§ CURRENT_STMT_MODE, 20$ > 0684 ; 
oc A 01 00 OODF MOV #1, CURRENT STMT ; 
08 A 01 A2 C OOES 208 ADDL2 1(R2), CURRENT _LINE : 0685 
78 11 OOOE BRB 36$ + 0686 
04 18 A3 €E9 OODEA 218 BLBC § CURRENT_STMT_MODE, 22$ + 0695 
oc «(AB 01 Bo OOE MOV #1, CURRENT STMT F 
10 a3 01 Ag A OOF 22 MOV ZBL \ch2), CURRENT. INCR ; 0696 
49 11 000F BRB 2$ : 069 
04 18 A3 E9 000F9 238 BLBC CURR ENT_STMT_MODE, 24$ : 0706 
oc A 01 bo OOFD MOVL #1, CURRENT STMT ; 
10 A 01 Ae C 00101 248 MOVZ2WL 1(R2), CURRENT_ TNCR : 0707 
61 11 001 BRB 38$ : 0708 
04 18 A3 €9 00108 258 BLBC § CURRENT_STMT_MODE, 26$ : 0716 
Oc Ad ot DO 001 MOVL #1, CURRENT STMT ; 
10 A3 1 DO 00110 268 MOVL #1. CURRENT~ INR : 0717 
1A 11 00114 BRB 30$ ; O78 
01 30 =A 116 27$ CMPL RRENT_MARK, #1 : 072 
11A BEQL $ ; 
00 11¢ BRW & ; 
oc AB 1 DO OO11F 288 MOVL #1, CURRENT_STMT > 0730 


ge 17 

-11 Bliss-32 32:19 (4) 
IESeOcHRRE GGHIE:ES  YMCITARLUSER2 46502762 sroenpc.e ae ? 
ep-1 . ° 
MT_MODE 3 730 : 
TBKDPE , MOVL " catueandicade : Ore 
sb 18 AS > 3Y 8059 Rov CURRENT STMT : 0738 
BT A ga APS. STAT AO ; ait 
wR RR ss, FRE Wael Ear 
wR om FR ew, pom) 
c et a ae 8] 
5 A 001 40$ : ; 
ed ea o 142 343; PRP Sia r : 0764 
02 " é3 148 ROVE DPC_ENTRY : 0765 ; 
5 G5 BD Bp10A MOVIWL 1480), CURRENT LINE ; 0770 ; 
ee oleae ee 
02 ame PEt ened 47S : 0778 
5 és a6 13D MOVE «= NKROD Rant an : 0768 
DO 001 49S + 0784 
oe A " és i a16e #3: ROVZUL 1(R2), CURRENT STHT : 0788 
oc 3 we D1 0168 398: ERPL CURRENT MARK, #2 ; 0797 
02 #0 i if Bier MOVE DPC ENTRY, RO : “2 ; 
_PC : 07 
ef 01 Ad OA O14 ROVAB, aSTARt PCCAII, CURRENT : 0798 ; 
14 a3 04 soar | PF Oise 408 44a $66 - ; 0803 ; 
; AS D1 0013 41s: EMBL RRENT_MARK, #2 ; 0811 ; 
02 " F if 00187 MOV. DPE_ENTRY, RO : 
50 63 pO 00189 MOV ZWL Rf PCCR1, CURRENT_PC ; 0812 : 
O1 AO 3¢ 8 MOV be RY ; 0611 : 
“ OF BTS £0 00196 428: ADDL ; : 0817 ; 
i 3 i a138 8 CHPL CURRENT_MARK, #2 ; 0825 ; 
D1 ’ EQ : H 
02 30 iF 12 OO19F 45$: BN DPC_ENTRY NT_PC ; 0826 ; 
50 e§ 06 Ole ADDL3 (RO) START PC, CURE ; 0834 : 
as 04 AS 1 AT Sota : RPL —CURRENT_MARK, #2 ; 0837 : 
14 30 AS D1 OO1AD 468 BEQL © 48$ : : 
. PBIB BR coe fgme| |; 
00098332 BF bp 0018 CALLS te VORSF ane ; 0841 
een ; i if 488: Rovt. —PCROS CURRENT _PC : 0842 
O$: ; ; 
. res i ibe 818; ROVZBL RO CURRENT _PC : 0888 : 
5 1 8 28 bolps ROVE. 2. CURRENT “MARK a th ; 

4 A ; 1DA ADDL2 #5. DPC ENTR 
6 6 11 oolel RB 


K - - e - 

VO. e000 1b-sep-1944 96: 43:7 1 yteK vntnaetencct VRACE SACITBKDPC.B32—1°" (LS (4) 

5 01 A2 3C OO1E3 528:  MOVZWL 1(R2), RO ; 

ce; s t6 001 ADDL2 RO, CURRENT_PC : 

0 A 168 MOVL #2. CURRENT~MARK : 

FEA 1EF BRW é : 

4 A 01 A2 CO OO1F2 538 ADDL2 R2), CURRENT_PC : 

0 A DO OO1F MOVL. #2, CURRENT MARK : 

CO OO1FB 54 ADDL2 #5. DPC_ENTRY : 

1 ; Ife 5 MOVL #1; RO ; 

50 04 56$ CLRL = RO : 

4 RET ; 


; Routine Size: 517 bytes, Routine Base: TBKSCODE + OODC 


. 


’ F 4 
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V 560 187808-1 382 96:30:75 DISKSVMSMASTER:(C RACE. SRCITBKDPC.B32:1" 33 

H ong a9 ! ROUTINE get_next_dpc (dst_rec_ptr) = ! gets next PC correlation record ; 
: 644 911 1 144 ; 
; 645 912 1 ! Functional description: : 
3 org 91 } : Reads DST records until either no more exist, a module end ‘ 
; 64 914 : record is seen, or another PC correlation record is seen. In ; 
3 ote 915 1! the first two cases, a FALSE return is taken. In the thirg : 
; 64 318 1! case, the address of the new record and a success return is : 
; 650 917 1! taken. ; 
; 651 218 1! 3 
3; 6 § 919 1 ! Inputs: 3 
; ? 7 i Y ' dst_rec_ptr - pointer for new DST PC correlation record : 
: 655 906 1 | ; 
3 028 9 1! Implicit inputs: 3 
; 65 924 1! the routine tbk$get_nxt_dst is set up to return : 
; 658 925 1! each DST record sequentially, and the last record : 
; 659 9 1! that it returned was a PC correlation record. ; 
; 660 09 1 | ; 
; 661 928 1! Implicit outputs: : 
3 666 929 1! tbk$get_nxt_dst is now set up to return the next record after : 
; 66 930 1! the returned record or the next record after the record that : 
; 664 0931 1! caused this routine to fail. : 
; 665 $336 1! 3 
; 66 0933 1 ! Routine value: : 
; 66 bee . 7 true or false 3 
; 668 935 1! 3 
; 669 0936 1 ! Side effects: ; 
; 670 0937 1! none ; 
; 671 0938 1 !-- $ 
; 676 0939 1 3 
; 67 0940 BEGIN 3 
3; 674 941 : 
; 675 +4 BIND 3 
; 676 094 dst_entry = .dst_rec_ptr : REF dst$record; : 
; 677 0944 3 
: 678 945 LOCAL ; 
3 44 e dst_rec_id; ; 
3; 6681 948 REPEAT 3 
; a 949 BEGIN : 
; © 950 dst_entry = tbkSget nxt_dst (dst_rec_id); : 
> 684 951 IF .dst entry EQL 0 3 
: 5 326 THEN RETURN ALSE: : 
; 6 95 IF .dst entry dst$b_type] EQL dst$k_modend : 
; 68 954 THEN RETURN FALSE; 3 
; 688 955 IF .dst_entry Cdst$b_type] EQL dst$k_line_num ; 
; 689 He OR .dst entry dst$b_type] EQL dst$k_line_num_rel_r11 3 
; 690 95 THEN RETURN TRUE; : 
; «6691 238 END; 3 
; 69 959 RETURN FALSE; ; 
; 69 960 1 END; : 


Ii 


; Routine Size: 


52 bytes, 


iets w$2p=1984 99:20:19 — DISkSUMSMASTERSCYRACE-SAcITBKDPC.B32;1°" (85 


0000 00000 GET_NEXT_DPC: 
asp nothing 


WOR 
SE 4 (2 UBL ; 

bp 1$ New + 0950 
000000906 00 CALL Hf TBK$G 1 ANAT DST : 
4 e¢ D MOVL O03 eC PTR : 

04 a OVE R> RO + 0951 

BD fF 01 A 18 CAPS ww 89 + 0953 

B9 «soa 01 A f CPB (RO), #185 + 0955 

B6 OF 01 Ap 6 CMPB (RO), #182 + 0956 
p 1 B BNEQ 1$ ; 

50 1 : D 2$ MOVL #1, RO + 0957 

50 4 § ; 3$ CFRL RO + 0960 
be 0033 RET ; 


Routine Base: TBKSCODE + 02€1 


Re Se Se Se Be Be Se Se Se Se Be Se FH Se Ge FF Se Be BH Ge Se Be Se Se Se Ge Se Fe Se Ge Se SH Se SH Se Se Se St Se SH Se Se SH Se BH Oe Oe HSH Se ee Oe BH Oe Oe Be oe 


H 4 


TBKDP -$ep-1984 :5 VAX-11 BLi 
VO e000 1ergee7}38e 9G:35:33 KN WRAS 
; 695 961 1 END 
: 696 boc. 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes . 
:  TBKSOWN 0 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC ALIGN(2) 
> TBKSCODE 789 NOVEC,NOWRT, RD. EXE, SHR. LCL, SEL. CON, PIC.ALIGN(O) 
3 Library Statistics 
Se pS aeee a Pe eet.  ae Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped m 
: _$255spua :ESYSLIBILIB.L32;1 _ 18619 “ 1000 00:01.7 
> 7$255$DUA RACE .OBJ J TBKLIB.L32;1 157 4 14 0: 0.2 
 . ae SDUA TRACE: OBJ JSTRUCDEF 3251 32 0 7 0:0 “1 
: 7$255$DUA 8: CTRACE .0BJ TBKDST .L32;1 414 131 31 30 0:00.3 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:TBKDPC/OBJ=OBJ$: TBKDPC MSRC$: TBKDPC/UPDATE=(ENH$: TBKDPC) 
Size: : 789 38 + 60 data bytes 
Run Time : 
Elapsed tee 


1:14, 
Lines/CPU Min: $1 § 
Lexemes/CPU-Min: 2053 
Memory Used: i pages 
Compiriation Complete 
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